Scene Explorer 2/Scene Explorer 2.iso/tools/!archived/a-start.lzx/A-Start/A-StartInstall

Text File | 1996-06-09 | 5KB | 186 lines

;******************** A-Start v0.9B install-script *******************
 (set MSG_SPACE "\n\n\nWelcome to A-Start v0.90 (c) Tuomas Artman/vPS.\n\nEnjoy this voidParrot Software product.\nPlease remember that this is only a preview version\nand has therefore only a limited number of functions.\nFull A-Start 1.0 version will be released as soon as possible!\n")
 (set MSG_DESTINATION "Where would you like A-Start to be installed?\n(The installer will create a directory called\nA-Start in the chosen path.)")
 (set MSG_COPYING "Copying A-Start-files to %s.")
 (set @abort-button "Abort installation.")
 (set MSG_THANKS "\n\n\n\nThank you for using a vPS-product!\nPlease support the author!")
 (set MSG_WBS "\n\n\n\nDo you want A-Start to be started\non every boot-up?\n")
 (set MSG_ASS "\n\n\n\nThe installer is going to add the assign 'AStart:'\nto your User-Startup-script.\nNote that A-Start won't work without the assign!")
 (set FSource)
 (set Msg_run "\n\n\n\n\nDo you now want to configure A-Start?\nBe adviced that A-StartPrefs needs MUI!\n")
(set osversion  (/ (getversion) 65536))
(if (>= osversion 39)
    (set guide_reader "MultiView")
    (set guide_reader "AmigaGuide")
)

(set installed "")



(set old 0)


(complete 0)
(message MSG_SPACE)

(if (exists "AStart:" (noreq))

    (
        (set dest_dir "AStart:")
        (message "\n\n\n\n'AStart'-assign found. A-Start will install\nitself to this location and update all\nold files. Preferences will not be lost.")
        (set old 1)
    )


    (
        (set dest_dir  (askdir (prompt (MSG_DESTINATION))
                        (help @askdir-help)
                        (default "dh1:")
                        (newpath)
                  )
        )
    (set dest_dir (tackon dest_dir "A-Start"))
    )
)


(set @default-dest dest_dir)
(complete 20)




(copyfiles  (help @copyfiles-help)
                (source "Bin/A-StartPrefs")
                (dest "Sys:Prefs")
                (infos)
)



(complete 40)
(copyfiles (help @copyfiles-help)
              (source "Bin/A-Start")
              (dest @default-dest)
              (infos)
)



(complete 60)
(copyfiles  (help @copyfiles-help)
          (source "Documentation")
          (dest (tackon @default-dest "Documentation"))
          (all)
          (infos)
)



(complete 70)

(if  (askbool  (prompt MSG_WBS)
            (default 1)
            (help "If you choose 'YES', the installer will copy A-StartWBS to the 'Sys:WBStartup'-dir. A-StartWBS is a very small program, which launches the A-Start-main-program via the specification of A-Start's path in the ToolTypes of the icon of A-StartWBS.\nConfused? Just press 'Yes'!"
            )
    )

    (copyfiles  (help @copyfiles-help)
                    (source "Bin/A-StartWBS")
                    (dest "Sys:WBStartup")
                    (infos)
    )

    (
        (copyfiles  (help @copyfiles-help)
                        (source "Bin/A-StartWBS")
                        (dest @default-dest)
                        (infos)
        )

        (delete "Sys:WBStartup/A-StartWBS"
                        (help "hoi")
                        (infos)
        )
    )
)



(complete 80)
(copyfiles  (help @copyfiles-help)
                (source "Documentation.info")
                (dest @default-dest)
)

(copyfiles  (help @copyfiles-help)
                (source "Data")
                (dest (tackon @default-dest "Data"))
                (all)
)




(if (exists "/A-Start.info")
     (
        (if (= old 0)
            (copyfiles  (help @copyfiles-help)
                      (source "/A-Start.info")
                      (dest (pathonly @default-dest))
            )
        )
     )
)

(if (exists "EnvArc:A-Start.prefs")
          (
            (copyfiles  (help @copyfiles-help)
                      (source "EnvArc:A-Start.prefs")
                      (dest (tackon @default-dest "Data"))
            )

            (delete "EnvArc:A-Start.prefs"
                        (help "Cleaning up!")
                        (optional force)
            )
          )
)




(complete 100)

(if (exists (tackon @default-dest "Documentation/A-Start.guide.info") (noreq))
        (tooltype   (dest (tackon @default-dest "Documentation/A-Start.guide"))
                  (noposition)
                  (setdefaulttool guide_reader)
        )
)



(if (= old 0)
 (
  (makeassign "AStart" @default-dest)
  (startup "A-Start"
            (command "Assign AStart: " @default-dest)
            (prompt MSG_ASS)
            (help "Just click on 'yes',will you?")
  )
 )
)

(run      "run Sys:Prefs/A-StartPrefs"
        (confirm)
        (prompt Msg_run)
        (help "You may now start A-StartPrefs to configure your version of the main program. A-StartPrefs does not work, if you do not have MUI 3.1+ installed.")
)


(message "**IMPORTANT**\nThis is only a preview's preview, a tripple beta and a\nbuggy-bug release of A-Start. It is here to show you\nthat I'm still alive and still programming.\nIt gives you a good look at the new features in A-Start\nalthough it should only be used to check out these\nnew features.\n\nI have had a few personal problems and after I had\nworked them out my new Compiler-System arrived,\nso I've not been doing much the last\nfew weeks. I appologize for that.\n*FANTOZZI LUIGI! write me your address!*")

(exit (MSG_THANKS))